#INCLUDE "PROTHEUS.CH"
#INCLUDE "APWEBSRV.CH"
/*/{Protheus.doc} POLWEBSR

@descricao Web Service de uso Polyterminais

@author Peterson Scherwinski

@since 14/04/2014
/*/
WSSERVICE POLWEBSR  DESCRIPTION "Web service de uso da Polyterminais"

//VARIAVEIS parametros de entrada nos metodos
	WSDATA TOKEN				AS String //TOKEN VALIDADOR
	WSDATA SERVICE			As DadosServWms
	
	//Recebimento de estrutura de dados
	//WSDATA RESOURCE			AS DadosStru

	//Variaveis de retorno dos metodos
	WSDATA RESULT_PROC		As Boolean

	//Envio de estrutura de dados
	//WSDATA RESOSCHED			as Array Of DadosStru

	//Declaracao dos Metodos

	//Metodo Inclusao de Servico para o WMS
	WSMETHOD WMSPutService			DESCRIPTION "Inclusao de Servico no WMS"

ENDWSSERVICE

//
//------> Estruturas de dados
//

//dados das agendas
WSStruct DadosServWms
	WSDATA SERVICO			AS String
	WSDATA PROCESSO			AS String
	WSDATA LOTE				AS String
	WSDATA QUANTIDADE			AS Float
	WSDATA ARMAZEM			AS String
	WSDATA ENDERECO			AS String OPTIONAL
	WSDATA PRODUTO_COD		AS String
	WSDATA PRODUTO_DESC		AS String OPTIONAL
	WSDATA PRODUTO_NCM		AS String OPTIONAL
	WSDATA PRODUTO_PRI_UM	AS String OPTIONAL
	WSDATA PRODUTO_SEG_UM	AS String OPTIONAL
	WSDATA CLIENTE_CNPJ		AS String
EndWSStruct

//
// -----> Metodos
//

//validacao de usuario e senha
WSMETHOD WMSPutService WSRECEIVE TOKEN, SERVICE WSSEND RESULT_PROC WSSERVICE POLWEBSR
	local lRet := .t.

	//VALIDA TOKEN PARA USO DO WS
	if ::TOKEN <> "POLYWEBSR"
		SetSoapFault("Acesso nao autorizado",;
			"Verifique os parametros informados.")
		return .F.
	endif

	varInfo("::SERVICE",::SERVICE)
	
	//VERIFICA SE O PRODUTO ESTA CADASTRADO
	//SENA CADASTRA
	::SERVICE:PRODUTO_COD

	//VERIFICA SE O CLIENTE ESTA CADASTRADO
	::SERVICE:CLIENTE_CNPJ

return(lRet)